

program LED_Blinking;
  begin
    DDRD := 0xFF;
    DDRB := 0xFF;           // II?O EIAEEAOEE IA ___AUOIA___
    DDRC := 0xFF;           // II?O I?EAIA N EIIIEIE IA ___AUOIA___
                            // DEE??AAO IIAA?OEO PULLUP,
                             //  OIAIUOAAO IAAIAEO E AAO?EE A?AAACA!!!
    PORTB.3:=0;
    PORTD.7:=0;

    while TRUE do
      begin
      if PINC.0 = 1 then
         begin
              delay_ms(50);
              if  PINC.0 = 1 then
              PORTD.7:=1
              else
              PORTD.7:=0;
              end;
              end;
              PORTD.7:=0;
              
      if PINC.3 = 1 then
         begin
              delay_ms(50);
              if  PINC.3 = 1 then
              PORTB.3:=1
              else
              PORTB.3:=0;
              end;
            //  end;
              PORTB.3:=0;
  end.